program variable_declaration;
type
    r = record
    first:integer;
    second:real;
    end;
var
    i : integer;
    r : real;
    b : boolean;
    c : char;
    a : array[1..3] of integer;
    rec:r;
begin
    i := 1;
    r := 2.5;
    b := true;
    c := 'c';
    a[1] := 1;
    rec.first := 10;
    rec.second := 20.6;
end
.